Unit
lmdctrl

Declaration

TLMDFMDragDropEvent = procedure(Sender:TObject; fcount, x,y:Integer; FileList:TStrings) of object;